home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / xdsn217.zip / SAMPLES / SIMPLE / halt.mod < prev    next >
Text File  |  1996-01-03  |  376b  |  17 lines
  1. MODULE halt;
  2.  
  3. IMPORT TERMINATION, STextIO;
  4.  
  5. BEGIN
  6.   IF TERMINATION.HasHalted() THEN
  7.     STextIO.WriteString("**** error 1 ****"); STextIO.WriteLn;
  8.   END;
  9.   HALT;
  10. FINALLY
  11.   IF TERMINATION.HasHalted() THEN
  12.     STextIO.WriteString("The program was halted."); STextIO.WriteLn;
  13.   ELSE
  14.     STextIO.WriteString("**** error 2 ****"); STextIO.WriteLn;
  15.   END;
  16. END halt.
  17.